DigitalVision: Cats & Dogs/DigitalVision: Cats & Dogs - Disc 1.iso/pc/s_saver/dv_onlin.exe/dv_onlin.dcr/Internal_23_a - animate random follow text.ls

Text File | 2000-07-28 | 607 b | 33 lines

property pSprite, pDelay, pblendam, pActive

on beginSprite me
  pSprite = sprite(me.spriteNum)
  pDelay = the timer
  pblendam = 4
  pActive = 0
  pSprite.locZ = pSprite.locZ + 1000
end

on exitFrame me
  if pActive then
    if pDelay < the timer then
      pSprite.loc = sprite(136).loc + point(random(6) - 3, 0)
      pDelay = the timer + 2
    end if
  end if
end

on animswitch me, bool
  if bool = 1 then
    if not pActive then
      pActive = 1
      pSprite.loc = point(400, 300)
    end if
  else
    if pActive then
      pActive = 0
      pSprite.loc = point(1000, 1000)
    end if
  end if
end